home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / design1b.zip / DEMO.PAS next >
Pascal/Delphi Source File  |  1997-07-19  |  583b  |  33 lines
  1. Uses Design, Crt;
  2.  
  3.  
  4. Var Block: Pointer;
  5.     l    : ListRec;
  6.     i    : Integer;
  7.     Result: integer;
  8. Begin
  9.  PaintScreen ('░',1,1,80,25,112);
  10.  OpenBox (10, 5, 70, 7, 27, Horz);
  11.  WriteBetween ('This is a test',11,68,6,31);
  12.  OpenBox (10, 10, 70, 20, 27, Vert);
  13.  l[1]:='Option 1';
  14.  l[2]:='Option 2';
  15.  l[3]:='Option 3';
  16.  l[4]:='Option 4';
  17.  l[5]:='Exit';
  18.  
  19. { Repeat
  20.  until ListBox (L, 12, 12, 68, 17, 5,112, 27)=5;}
  21.  
  22.  for i:=1 to 5 do
  23.      WriteXy(l[i],12,11+i,27);
  24.  
  25.  repeat
  26.  
  27.      Result:=Menu (12, 12, 68, 16, 112);
  28.  
  29.  until (Result=5) or (Result=0);
  30.  
  31.  
  32.  
  33. end.